; ORIGINAL: 3dt2.1/examples/part.scm
; $Id: part.scm,v 1.3 1996/10/21 15:59:25 aed Exp $
;- part.scm -------------------------------------------------------
; Create a part modify it, then save, clear, restore the part.
;------------------------------------------------------------------
(part:clear)

;; Create some entities in the new part
(define blk (solid:block (position 0 0 0) (position 20 30 40)))
(define sph (solid:sphere (position 0 0 0) 10))
(define cyl (solid:cylinder (position 10 15 40) (position 10 15 50) 5))

;; List the entities in the part
(display (part:entities))
(newline)

;; Delete one of the entities and display the results
(entity:delete sph)
(display (part:entities))
(newline)

;; Save and clear the part
(part:save "part.sat")
(part:clear)
(display (part:entities))
(newline)

;; Restore the part
(part:load "part.sat")
(display (part:entities))
(newline)

